home *** CD-ROM | disk | FTP | other *** search
-
- This document was generated from file phasor.FOR
- on 20-NOV-85 at 1:28: 4
- ________________________________________________________________________
- ________________________________________________________________________
-
-
- PROGRAM PHASOR
- C L. R. FORTNEY 1/31/81 on a Z80
- C Working on Atari 10/9/87
- C This program draws two rotating phasors on the complex plane and
- C displays their x-projection as the phasors rotate. The amplitude
- C and frequency of one phasor is adjustable using the arrow keys. The
- C projected display can be of both phasors separately or of their summed
- C signal. Useful for showing beats.
- C Works only on hi-res mono displays.
- C
- ________________________________________________________________________
- SUBROUTINE ARROW(K,IX,IY,LNG,IXE,IYE)
- ________________________________________________________________________
- SUBROUTINE EARROW(KV)
- C ERASE DISPLAY FOR ARROW
- ________________________________________________________________________
- SUBROUTINE CARROW(K)
- C COMPLEMENT DISPLAY FOR ARROW
- ________________________________________________________________________
- FUNCTION KEY(ISTAT)
- C READ KEYBOARD WITH NO HANG
- C ISTAT=0 AND KEY=-1 IF NO CHARACTER AVAILABLE TO RETURN
- C OTHERWISE
- C ISTAT=-1 AND LOW BYTE OF KEY CONTAINS ASCII CODE
- ________________________________________________________________________
-